REM sierpinski's gasket IFS
REM Generates sierpinskis Gasket
REM this has been optimised as much as possible for size
REM and when compiled and compressed with PK-Lite it is
REM exactly 2222 bytes long,
 
 
ax=&hex13
int86 (&hex10,ax,na,na,na,na,na,na,na,na)
 
defseg = &hexA000
 
tmp:
Temp = RND(0)
 
   a@ = .5
   d@ = .5
   e@ = 0
   f@ = 0
 
IF temp > 10813 THEN
    e@ = 1
ENDIF
IF temp > 21626 THEN
    e@ = .5
    f@ = .5
ENDIF
 
x@ = a@ * x@
x@ = x@+e@
 
y@ = d@ * y@
y@ = y@ + f@
 
xd@ = x@ + 0.05
xd@ = xd@ * 145
 
 
yd@ = y@ + .03
yd@ = yd@ * 185
 
off& = yd@*320
off& = off&+xd@
 
POKE off&,15
 
 
text$ = INKEY$
IF text$ = "" THEN tmp:
 
 
ax=&hex03
int86 (&hex10,ax,na,na,na,na,na,na,na,na)